program SLPrintDLLTest;

uses
  Forms,
  Windows;

type  mypointer=Procedure(params:PChar);stdcall;
{$R *.res}

var
  Handle:THandle;
  frm_p:mypointer;
begin
  Handle:=loadlibrary('SLPrintDLL.dll');
  if Handle>32 then
  begin
     frm_p:=GetProcAddress(Handle,'ShowPrintFm');
     if @frm_p<>nil then frm_p('311B373961436CEE1FE45E708A61DE2121C450');
  end;
  Freelibrary(Handle);

  //Application.Initialize;
  //Application.CreateForm(TPrintFm, PrintFm);
  //Application.Run;
end.
